Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/TOC.DIR/00002_Script_2

Text File | 1995-11-21 | 19KB | 761 lines

on startMovie
  global gCom
  global gNavPalette, gGlossPalette--, gCursor

  set the exitLock = 1

  --set the keyDownScript to "checkKeyDowns"

  put char 1 of the movieName = "O" into gCOM

  --put ">>>local startMovie" && the movie
  startTimer

  --  set dontChangeCursor = (gCursor = 4)
  --  set gCursor = 4
  --  cursor gCursor

  cursor 4

  checkColor
  --put ">>>checkColor" && the timer/60.0

  checkQT
  --put ">>>check QT" && the timer/60.0

  --MemoryWaterMark "before initialize"
  initialize
  --MemoryWaterMark "after initialize"

  --put ">>>initialize" && the timer/60.0


  bigOpening
  --put ">>>bigOpenning" && the timer/60.0

  --  if voidP(gGlossPalette) then
  --    createGlossPalette
  --  end if
  --
  updateStage
  --
  if voidP(gNavPalette) then
    createNavPalette
  end if

  --  if not dontChangeCursor then
  --    set gCursor = -1
  --    cursor gCursor
  --  end if

  cursor -1

  --put the timer/60.0

  --soundFadeIU

end startMovie

on checkColor
end checkColor

on checkQT
end checkQT

on initialize

  --MemoryWaterMark "before setGlobalVariables"
  setGlobalVariables
  --MemoryWaterMark "after setGlobalVariables"

  setLocalVariables
  --put ">>>setLocalVariables" && the timer/60.0

  --MemoryWaterMark "before setButtonTrios"
  setButtonTrios
  --MemoryWaterMark "after setButtonTrios"

  --put ">>>setButtonTrios" && the timer/60.0

  --MemoryWaterMark "before setPreloads"
  setPreloads
  --MemoryWaterMark "after setPreloads"
  --put ">>>setPreloads" && the timer/60.0

  set the preLoadEventAbort to true
end initialize

on setGlobalVariables
  --put ">>>set global variables start=" & the timer/60.0
  global gLabels,gO, gNavIdleTicks, gNonVisibleSingles
  if voidP(gLabels) then

    if the machineType <> 256 then openXlib "I MaxMem"

    openPopMenu

    set gNavIdleTicks = 0

    set gNonVisibleSingles to value(field "NonVisibleSingles")

    set gLabels to [:]
    set gO to value(field "O.DIR")

    if 0 then

      set theMovies to  value(field "The Movies")

      repeat with i= 1 to count(theMovies)
        -- --put ">>> movie " & i
        set movieLabels to value(field getAt(theMovies,i))
        --put ">>> movie labels: " & MovieLabels
        if MovieLabels <> 0 then -- dmd added this because starmap.dir was empty
          repeat with j = 1 to count(movieLabels)
            addProp gLabels,getPropAt(movieLabels,j),getAt(movieLabels,j)
          end repeat
        end if
      end repeat
    else
      repeat with i= 1064 to 1070
        -- --put ">>> movie " & i
        set movieLabels to value(field i)
        --put ">>> movie labels: " & MovieLabels
        if MovieLabels <> 0 then -- dmd added this because starmap.dir was empty
          repeat with j = 1 to count(movieLabels)
            addProp gLabels,getPropAt(movieLabels,j),getAt(movieLabels,j)
          end repeat
        end if
      end repeat
    end if

    --dmd do we need the sorts?

    --put ">>>set global variables before sort =" & the timer/60.0

    --sort gO
    --put ">>>set global variables after sort gO =" & the timer/60.0
    --sort gLabels
    --put ">>>set global variables after sort =" & the timer/60.0
  end if

end setGlobalVariables

on setLocalVariables
  global gPoemIsPlaying, gVolume
  global gCurrChan,gFirsChan,gLastChan,gPrevHilite
  global gFiorellaOnStage, gTOCRetraceChan, gRetraceCount

  put false into gFiorellaOnStage

  -- dmd NOTE: the use of 9 here is bad because it is a number and not a symbol
  -- secondly, the use of this channel for the purpose of the retrace button is not
  -- well formed. This results in the channel being non-visble for other sections that
  -- use the channel for other purposes. For now I will have to put create a global
  -- called retrace channel, and force it to visible when this section is left.
  set gTOCRetraceChan = 16

  if voidP(gRetraceCount) then
    set gRetraceCount = 0

    if voidP(gVolume) then put 7 into gVolume

  end if

  set the visible of sprite gTOCRetraceChan to (gRetraceCount > 0)
  --put ">>> retrace button is: " & (gRetraceCount > 0)

  --put "Retrace set to : " & (gRetraceCount > 0)

end setLocalVariables

on bigOpening
end bigOpening

on stopMovieXXX
  global oPop
  if objectP(oPop) then
    oPop(mDispose)
    if the machineType = 256 then
      --closeXLib "POPMENU.DLL"
      --else
      --closeXLib "PopUp Menu XObj"
    end if
  end if
  unload
end stopMovie

-----
on setButtonTrios
  global gCBL
  if voidP(gCBL) then
    --setContentsButtons
    --put ">>>contents buttons" && the timer/60.0
    --setPoemButtons
    --put ">>>Poem buttons" && the timer/60.0
  end if
end setButtonTrios



--showhilite,2,307

on showHiliteNew firstSprite, endSprite, firstLine, propList, special
  global gFadeOutP, gTOCRetraceChan
  --global, gContRetrace

  --put ">>>showHiLiteNew: " & firstSprite, endSprite, firstLine, propList, special

  --- tbd ???
  -- dmd improve this, on each idle knock the volume down a bit over time.

  set m = the movie
  set f = the frame
  testOverheadMenu
  if f <> the frame or m <> the movie then exit

  if special = 1 then
    if the mouseH < 558 or the mouseV < 423 then exit
  end if



  --if gFadeOutP then soundFadeIdleIU

  --put "cast 2: showHilite", btnList, firstC, lastC
  repeat with spriteNum = firstSprite to endSprite

    if the commandDown or (the controlDown and the machineType = 256) then exit repeat

    if spriteNum <> firstSprite then
      if rollOver(spriteNum - 1) then set spriteNum = spriteNum - 1
    end if

    if rollOver(spriteNum) then
      --put ">>>roll over " & i

      --put firstLine, spriteNum, firstSprite

      set lineNum = firstLine + spriteNum - firstSprite
      set theLine = line lineNum of field propList


      put the castNum of sprite spriteNum into theDullSprite

      --- tbd

      --      set gBTNLST = btnList
      --      set gI = i
      --

      rolloNew(theLine)

      repeat while rollOver(spriteNum)
        if the commandDown or (the controlDown and the machineType = 256) then exit repeat

        if the mouseDown then
          --put ">>> about to press it cast 2"

          if item 2 of theLine = "gContRetrace" then
            --beep
            exit
          end if

          pressNew(theLine)
          --set the visibility of sprite gTOCRetraceChan = 1

          --put ">>> calling do script"

          if special <> 2 then
            set the castNum of sprite spriteNum to theDullSprite
            puppetSprite spriteNum,false
            doScriptNew(theLine)
          else
            set theMovie = the movie

            doScriptNew(theLine)

            if theMovie = the movie then
              updateStage
              set the castNum of sprite spriteNum to theDullSprite
              puppetSprite spriteNum,false
            end if

          end if

          --put ">>> about to exit handler showhilite via exit command"
          exit
        end if

        if special=1 then
          if the mouseH < 558 or the mouseV < 423 then exit repeat
        end if

      end repeat
      --normNew(theLine)

      set the castNum of sprite spriteNum to theDullSprite
      puppetSprite spriteNum,false
      updateStage
      -- ???     if spriteNum <> firstSprite then set spriteNum = spriteNum - 1
    end if



    --put ">>>end rollover loop"
  end repeat
  --put  ">>> exiting showhilite"
end showHiliteNew


on SpecialRollOver startC, endC
  set int = 0

  puppetSprite 40,1
  set the locV of sprite 40 = the mouseV
  set the locH of sprite 40 = the mouseH
  updateStage

  repeat with i = startC to endC
    if sprite 40 intersects i then
      set int = i
      exit repeat
    end if
  end repeat

  puppetSprite 40, 0

  return int
end


--
--
-- The button list, the intersecting sprite and the offset to the art
-- from the cover
--

on showHilite2New lineNo, spriteNum, offsetToArt, fieldNo
  global gFadeOutP, gTOCRetraceChan, gContRetrace

  --- tbd ???
  -- dmd improve this, on each idle knock the volume down a bit over time.

  --if gFadeOutP then soundFadeIdleIU

  set i = spriteNum + offsetToArt

  put the castNum of sprite i into theDullSprite

  set theLine = line lineNo of field fieldNo

  rolloNew(theLine)

  repeat while SpecialRollOver(spriteNum,spriteNum)

    if the commandDown or (the machineType = 256 and the controlDown) then
      exit repeat
    end if

    if the mouseDown then
      --put ">>> about to press it cast 2"

      pressNew(theLine)
      --set the visibility of sprite gTOCRetraceChan = 1

      --put ">>> calling do script"
      set the castNum of sprite i to theDullSprite
      puppetSprite i,false

      doScriptNew(theLine)
      --put ">>> about to exit handler showhilite via exit command"
      exit
    end if

  end repeat

  --normNew(theLine)
  set the castNum of sprite i to theDullSprite
  puppetSprite i,false

  --put ">>>end rollover loop"
  updateStage

  --put  ">>> exiting showhilite"
end showHilite2New


--
--
-- The button list, the intersecting sprite and the offset to the art
-- from the cover
--

on showHilite2 btnList, spriteNum, offsetToArt
  global gFadeOutP, gTOCRetraceChan, gContRetrace

  asdf

  --- tbd ???
  -- dmd improve this, on each idle knock the volume down a bit over time.

  --if gFadeOutP then soundFadeIdleIU

  set i = spriteNum + offsetToArt

  put the castNum of sprite i into theDullSprite

  put getProp(btnList,i) into it

  -- instantiate the object

  if listP(it) then
    set it = string(it)
    set len = the length of it
    set it = char 2 to len - 2 of it
    set str = "set it = birth("  & it & ")"
    do str
    --put ">>> " &str
    setProp btnList, i, it
  end if

  rollo(it)

  repeat while SpecialRollOver(spriteNum,spriteNum)
    if the mouseDown then
      --put ">>> about to press it cast 2"

      press(it)
      --set the visibility of sprite gTOCRetraceChan = 1

      --put ">>> calling do script"
      doScript(it)
      --put ">>> about to exit handler showhilite via exit command"
      exit
    end if

  end repeat

  norm(it)
  set the castNum of sprite i to theDullSprite
  puppetSprite i,false

  --put ">>>end rollover loop"
  updateStage

  --put  ">>> exiting showhilite"
end showHilite2


on doNewPopBAD channel, whatList

  --put ">>>doNewPop " && channel && whatList

  set num = the number of cast (whatList & " PopUp")
  if num <> -1 then
    set h = the height of cast num
    set w = the width of cast num
  else
    exit
  end if

  set c = count(value(field whatList))
  set s = (h - 2) / (c * 1.0)


  set chan = channel + 10
  set the visibility of sprite chan = 1
  set t = the top of sprite chan
  --updateStage

  puppetSprite 26, 1
  set the castNum of sprite 26 = the number of cast (whatList & " PopUpH")
  set the locH of sprite 26 = the left of sprite chan
  set the locV of sprite 26 = the top of sprite chan
  set l = the left of sprite chan
  set r = the right of sprite chan

  --put ">>> first rect" & the rect of sprite 26
  set the rect of sprite 26 = rect(0,0,0,0)
  updateStage
  --put ">>> after setting to 0" & the rect of sprite 26

  set oldI = 0

  repeat while the mouseDown

    if rollover(chan) then
      set i = integer(( (the mouseV - t) / s) + 0.5)
      --put ">>> item = " i
    else
      set i = 0
    end if

    if i < 1 or i > c then set i = -100

    if i <> oldI then
      set tNew = ((i-1) * s)
      set the rect of sprite 26 = rect(l, tNew, r, tNew+s)
      put the rect of sprite 26
      --set the locV of sprite 26 = t + ((i-1) * s)
      updateStage
      set oldI = i
    end if

    --put ">>> locV 26" && the locv of sprite 26

  end repeat

  --  put the top of sprite 26
  --  put the left of sprite 26
  --  put the castNum of sprite 26

  puppetSprite 26, 0
  set the visibility of sprite chan = 0

  return i
end doNewPopBAD

on doNewPop channel, whatList

  --put ">>>doNewPop " && channel && whatList

  set num = the number of cast (whatList & " PopUp")
  if num <> -1 then
    set h = the height of cast num
    set w = the width of cast num
  else
    exit
  end if

  set c = count(value(field whatList))
  set s = (h - 2) / (c * 1.0)


  set chan = channel + 10
  puppetSprite chan,0 -- just in case... a spurious bug on 11/10/95 dmd
  updateStage
  set the visibility of sprite chan = 1
  set t = the top of sprite chan
  --updateStage

  puppetSprite 26, 1
  set the castNum of sprite 26 = the number of cast (whatList & " PopUpH")
  set the type of sprite 26 = 1
  set the locH of sprite 26 = the left of sprite chan
  set the locV of sprite 26 = -1000
  set the ink of sprite 26 = 36

  --put ">>>cast num" && the castnum of sprite 26

  set oldI = 0

  repeat while the mouseDown

    if rollover(chan) then
      set i = integer(( (the mouseV - t) / s) + 0.5)
      --put ">>> item = " i
    else
      set i = 0
    end if

    if i < 1 or i > c then set i = -100

    if i <> oldI then
      set the locV of sprite 26 = t + ((i-1) * s)
      updateStage
      set oldI = i
    end if

    --put ">>> locV 26" && the locv of sprite 26

  end repeat

  --  put the top of sprite 26
  --  put the left of sprite 26
  --  put the castNum of sprite 26

  puppetSprite 26, 0
  set the visibility of sprite chan = 0

  return i
end doNewPop


on hideCOMenus
  repeat with i = 18 to 25
    set the visibility of sprite i = 0
  end repeat
end hideCOMenus

on showCOMenus
  repeat with i = 18 to 25
    set the visibility of sprite i = 1
  end repeat
end showCOMenus


on myPop whichSprite, whatList

  --put ">>>myPop which, what" && whichSprite && whatList

  set it = doNewPop(whichSprite, whatList)

  if it > 0 then
    --set oList to [:]
    set oList to value(field whatList)
    --put ">>>" & oList

    set p = getPropAt(oList, it)
    --put ">>> property is: " & p
    goGo(p)
  end if


end myPop

on myPopOLD whichSprite, whichSide, whatList
  --whereAt is left or right
  --whatList is the name of the field which has the list to use
  global oPop, oList, gO
  set oList to [:]
  set oList to value(field whatList)

  newPop()

  put empty into popSide

  if whichSide = "Left" then
    put the StageLeft-16+popOffset(whatList) into popSide
  else
    put (the right of sprite whichSprite)+ the StageLeft-4 into popSide
  end if
  put (the top of sprite whichSprite)+the StageTop+8 into popTop
  put 0 into defaultItem
  if word 1 of whatList = "Quasars" then put count(oList) into defaultItem
  oPop(mSetItemMark,0)

  set it=oPop(mPopNum, popSide, popTop,defaultItem)

  --  dmd repeat while the stillDown
  --  dmd end repeat

  if it > 0 then
    --put ">>>" & oList
    set p = getPropAt(oList, it)
    --put ">>> property is: " & p
    goGo(p)
  end if

end myPopOLD

on newPop
  global oPop,oList
  if objectP(oPop) then
    oPop(mDispose)
  else
    if the machineType = 256 then
      openXLib "POPMENU.DLL"
    else
      openXLib "PopUp Menu XObj"
    end if
  end if

  --put ">>> making a popup cast 2 (TOC.DIR)"

  set oPop = PopMenu(mNew,dummyList(),999)
  realList
end newPop

on dummyList
  global oList
  put empty into it
  repeat with i = 1 to count(oList)
    put getAt(oList,i) into m
    put it&char 1 to 3 of m&";"  into it
  end repeat
  delete the last char of it
  return it
end dummyList

on realList
  global oList,oPop
  repeat with i = 1 to count(oList)
    put getAt(oList,i) into m
    if char 1 to 2 of m = "<U" then put char 3 to length(m) of m into m
    oPop(mSetItem,i,m)
  end repeat
end realList

on listToMenuItems aList
  put "" into resultList
  repeat with i = 1 to count(aList)
    put resultList&getat(aList,i)&";" into resultList
  end repeat
  delete the last char of resultList
  return resultList
end

on popOffset theList
  return getOne([262:"Nebulae",302:"Supernova Remnants",307:"Planetary Nebulae",290:"Globular Star Clusters",302:"Open Star Clusters",288:"Individual Stars"],theList)
end popOffset

on myPlay theMovie,theChannel
  if theMovie="TOC" then
    playTOC
  else   if theMovie="it" then
    playit
  else if theMovie="it" then
    playit
  end if
end myPlay

on setPreloads
  -- use for this movie only
  -- birth with sbc
  global gLastPreloadStartFrame, gLastPreloadEndFrame, gPreloadList, gPreloadIndex
  set gLastPreloadStartFrame to 0
  set gLastPreloadEndFrame to 0
  if voidP(gPreloadList) then
    set gPreloadList to []
    set gPreloadIndex to []
    setPreload("TOC","TOC","TOC")
    setPreload("TOC","O","OM")
    setPreload("TOC","T","TM")
    setPreload("TOC","P","PM")
    setPreload("TOC","S","SM")
    setPreload("TOC","M","MM")
    setPreload("TOC","U","UM")
    setPreload("TOC","OM","OM")
    setPreload("TOC","TM","TM")
    setPreload("TOC","PM","PM")
    setPreload("TOC","SM","SM")
    setPreload("TOC","MM","MM")
    setPreload("TOC","UM","UM")
    setPreload("TOC","ON","ONM")
    setPreload("TOC","OS","OSM")
    setPreload("TOC","OQ","OQM")
    setPreload("TOC","OO","OOM")
    setPreload("TOC","OG","OGM")
  end if

end setPreloads

on setPreload myMovieName,frameName,endFrame
  global gPreloadList, gPreloadIndex
  --  append gPreloadList, birth(script "ppl",myMovieName,frameName,frameName,endFrame)
  --  append gPreloadIndex, frameName
end

on fifi whichMovie
  --put ">>>fifi was clicked in movie"&&whichMovie
end fifi

on tracexxx whichMovie
  --put ">>>trace was clicked in movie"&&whichMovie
  retrace
end trace

on contentsxxx whichMovie
  --put ">>>contents was clicked in movie"&&whichMovie
  doContents
end contents